﻿Imports DataObject
Imports BusinessObject
Imports Microsoft.ApplicationBlocks.Data

Public Class frmNhomViTriDetail

    Private ptyNhomViTri As New NhomViTri
    Private oNhomViTri As New BusNhomViTri
    Private oFunction As New hDCommonFunction

    Private Sub frmNhomViTriDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (Me.eActionMode = EditMode.AddNew) Then
            Me.Text = "Thêm mới nhóm vị trí"
        Else
            Me.Text = "Sửa nhóm vị trí"
        End If
        txtMaNhomViTri.Focus()
        DataBindingToControl(GroupBox1)
    End Sub

    Public Overrides Function ValidateData() As Boolean
        If txtMaNhomViTri.Text = "" Then
            MessageBox.Show("Mã nhóm vị trí không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtMaNhomViTri.Focus()
            Return False
        End If
        If txtTenNhomViTri.Text = "" Then
            MessageBox.Show("Tên nhóm vị trí không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtTenNhomViTri.Focus()
            Return False
        End If
        Return True
    End Function

    Protected Overrides Function SaveDictionary() As Boolean
        Dim bResult As Boolean = False
        Try
            ptyNhomViTri.MaNhomViTri = txtMaNhomViTri.Text
            ptyNhomViTri.TenNhomViTri = txtTenNhomViTri.Text
            ptyNhomViTri.DienGiai = txtDienGiai.Text
            ptyNhomViTri.HoatDong = chkHoatDong.CheckedValue
            If (eActionMode = EditMode.AddNew) Then
                oNhomViTri.InsertNhomViTri(sConn, ptyNhomViTri)
            ElseIf (eActionMode = EditMode.Edit) Then
                ptyNhomViTri.SoNhomViTri = RowDetail.Item("SoNhomViTri")
                oNhomViTri.UpdateNhomViTri(sConn, ptyNhomViTri)
            End If
            bResult = True
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            bResult = False
        End Try
        Return bResult
    End Function

End Class
